home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / developer-tools / andere sprachen / oberonv4 / oberon-src / system / modules.mod (.txt) < prev    next >
Encoding:
Oberon Text  |  1996-03-19  |  1.0 KB  |  36 lines
  1. Syntax10.Scn.Fnt
  2. ParcElems
  3. Alloc
  4. Syntax24b.Scn.Fnt
  5. (* AMIGA *)
  6. MODULE Modules; (* 7-Aug-1993/cn *)
  7. IMPORT
  8.  SYSTEM, Amiga, Kernel;
  9. CONST
  10.  ModNameLen*=LEN(Kernel.ModuleName);
  11.  Command*=PROCEDURE();
  12.  Module*=Kernel.Module;
  13.  ModuleName*=Kernel.ModuleName;
  14.  importing*,imported*:ModuleName;
  15.  res*:INTEGER;
  16. PROCEDURE ThisMod*(name:ARRAY OF CHAR):Module;
  17.     mod:Module;
  18. BEGIN
  19.     COPY(name,importing);
  20.     Amiga.ThisMod(
  21.         name,SYSTEM.VAL(LONGINT,mod),res,SYSTEM.VAL(LONGINT,Kernel.modules),imported
  22.     IF res#0 THEN mod:=NIL; END;  (* << CN *)
  23.     RETURN mod;
  24. END ThisMod;
  25. PROCEDURE ThisCommand*(mod:Module; name:ARRAY OF CHAR):Command;
  26.  cmd:Command;
  27. BEGIN
  28.  Amiga.ThisCommand(SYSTEM.VAL(LONGINT,mod),name,SYSTEM.VAL(LONGINT,cmd),res);
  29.  RETURN cmd;
  30. END ThisCommand;
  31. PROCEDURE Free*(name:ARRAY OF CHAR; all:BOOLEAN);
  32. BEGIN
  33.  Amiga.Free(name,all,res,SYSTEM.VAL(LONGINT,Kernel.modules));
  34. END Free;
  35. END Modules.
  36.